8 POKE53371,0
10 POKE56,56:POKE55,0:CLR
20 DV=PEEK(186):IFDV<8THENDV=8
30 POKE53281,0:POKE53280,0:PRINT"[129]"
32 SYS57812"NA.SCRIPTER",DV,0:POKE780,0:POKE781,0:POKE782,196:SYS65493
34 SYS57812"NA.FONT",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
36 SYS57812"NA.RLE",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
60 POKE53280,0:POKE53272,31
62 SC=49152+4*256:SYSSC,224,204,56
64 SP$="                                        "
65 TP$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
66 BT$="[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
68 CR$=CHR$(13):TB$=LEFT$(SP$,10)
70 GOTO180
80 POKE214,Y:PRINT
82 PRINTTAB(X)"[176]"LEFT$(TP$,XX)"[174]"
84 PRINTTAB(X)"[170]["LEFT$(SP$,XX-2)"][180]"
86 FORII=2TOYY:PRINTTAB(X)"[170]"LEFT$(SP$,XX)"[180]":NEXT
88 PRINTTAB(X+1)"[145]<"TAB(X+XX)">"
90 PRINTTAB(X)"[173]"LEFT$(BT$,XX)"[189]"
92 RETURN
100 POKE214,19:PRINT
102 FORI=0TO1:PRINTTAB(4)LEFT$(SP$,33):NEXT
104 RETURN
180 PRINT"[147]":X=2:Y=0:XX=35:YY=21:PRINT"[155]";:GOSUB80
190 POKE214,2:PRINT
192 PRINTTAB(11)"[158]THE MIGHTY LOADSTAR
193 [153][163]9)"FOROR^ORORTAN^OR^OR^^ ORORTAN^OR=^=ORTAN^
194 PRINTTAB(9)"[221][221][221][171][192][179][221][173][189][221][173][178][189][173][192][174] [221] [221][221]
195 [153][163]9)"EXP/EXPEXP /EXP  / > /TANEXP > >/TANEXP
196 PRINTTAB(14)"[158]CONTEST 1999"
200 PRINTTAB(12)"1 [154]CONTEST #1
202 [153][163]12)"2 CONTCONTEST #2
204 PRINTTAB(12)"3 [154]QUIT TO LOADSTAR
208 [151]198,0
210 [161]A$:[139]A$[178]""[167]210
212 [139]A$[178]"3"[167]40000
214 [139]A$[179]"1"[176]A$[177]"2"[167]210
215 K$[178]A$
216 [158]49152,"RLE.NAMYS "[170]K$,DV,64[172]256
218 [151]214,10:[153]:[129]I[178]0[164]7:[153][163]3)"                              ":[130]
220 [151]214,8:[153]:[129]I[178]0[164]9
222 [153][163]12)""[199](65[170]I)"  CONTSEE NAMYSTIC "[199](65[170]I)
224 [130]
230 [151]214,19:[153]:[153][163]8)"1CONT  PRINT CONTEST ENTRY BLANK
240 PRINTTAB(8)"2[154]  BACK TO MAIN MENU
248 [151]198,0
250 [161]A$:[139]A$[178]""[167]250
260 [139]A$[178]"2"[167]180
270 [139]A$[178]"1"[167]400
280 [139]A$[179]"A"[176]A$[177]"J"[167]248
290 N[178][198](A$)[171]65
310 [151]251,64[170]6[172]N:[151]252,224:[151]253,204:[158]51456:[158]51459
320 [158]SC[170]6,16,21,"	STOPOPENNAMYSTIC "[170][199](65[170]N)
330 [158]SC[170]6,2,2,"	STOPFORLOADSTAR'SNAMYSTICSCONT"
380 [161]A$:[139]A$[178]""[167]380
390 [158]51459
392 [137]248
400 [141]100
420 [153][163]4)"ONONCONTGET PRINTER READY AND PRESS SPACE"
422 [153][163]4)"CONTOR PRESS _CONT TO RETURN TO THE MENU."
430 [161]A$:[139]A$[178]""[167]430
432 [139]A$[178]"_"[167][141]100:[137]230
434 [139]A$[179][177]" "[167]430
440 [159]4,4,7:[160]4
442 [139]ST[178][171]128[167]400
450 [159]4,4,7
460 [152]4,TB$TB$"(null)LEFT$VAL (null)RIGHT$CHR$LEFT$(null)(null) (null)(null)ATNSTR$(null)(null)ATN(null) (null)ATN(null)(null)(null)(null)RIGHT$LEN(null) LEN(null)(null)(null)VAL(null)(null) 1999"CR$
480 [152]4,TB$"ASCILL IN YOUR ADDRESS BELOW THEN IDENTIFY EACH OF THE 20
482 PRINT#4,TB$"COUNTRIES, STATES OR PROVINCES. [211]END YOUR BALLOT TO:"CR$
488 PRINT#4,TB$TB$"   [204][207][193][196][211][212][193][210] [206][193][205][217][211][212][201][195][211] [195][207][206][212][197][211][212] 1999
490 [152]4,TB$TB$"   606 LENOMMON (null)TREET
492 PRINT#4,TB$TB$"   [211]HREVEPORT [204][193] 71101"CR$
496 PRINT#4,TB$"[196]EADLINE IS [202]ULY 31, 1999."CR$
500 PRINT#4,TB$"[206][193][205][197]:....................................................."CR$
510 PRINT#4,TB$"[193][196][196][210][197][211][211]:.................................................."CR$
520 PRINT#4,TB$"[211][212][193][212][197]:...................[208][207][211][212][193][204] [195][207][196][197]......................"CR$
530 PRINT#4,TB$TB$,"   [195] [207] [206] [212] [197] [211] [212]   # 1"CR$
540 FORI=0TO9
542 PRINT#4,TB$TB$"[206][193][205][217][211][212][201][195] "CHR$(I+193)"............................."CR$
544 NEXT
548 PRINT#4,TB$TB$,"   [195] [207] [206] [212] [197] [211] [212]   # 2"CR$
550 FORI=0TO9
552 PRINT#4,TB$TB$"[206][193][205][217][211][212][201][195] "CHR$(I+193)"............................."CR$
554 NEXT
562 CLOSE4:POKE186,DV
570 GOSUB100:GOTO230
999 GOTO999
10000 D=PEEK(186):N$="0:B.NAMYSTICS 1999":OPEN15,D,15,"S"+N$:CLOSE15:SAVEN$,D:END
40000 FORI=8TO29:POKE820+I,I:NEXT:IFDV>8ANDDV<30THENPOKE828,DV:POKE820+DV,8
40010 A$="PRESENTER":GOSUB40030:A$="HELLO CONNECT":GOSUB40030
40020 PRINT"[147]":POKE53272,23:POKE186,8:POKE2048,0:POKE44,8:POKE43,1:END
40030 FORJ=8TO29:I=PEEK(820+J):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:RETURN
40070 A$="HELLO CONNECT":Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END